Public NotInheritable Class BlendViewTempForm

    Private Sub BlendViewTempForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Set up the dialog text at runtime according to the application's assembly information.  

    End Sub

    Private Sub MainPictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MainPictureBox.Click

    End Sub

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Public Sub SetBitmap(ByVal Image As Bitmap, ByVal Opacity As Single)
        Me.MainPictureBox.Image = Image
        Me.Opacity = Opacity
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Me.SetBitmap(CType(Me.MainPictureBox.Image, Bitmap), CSng(TrackBar1.Value / 100))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.ControlBox = Not Me.ControlBox
    End Sub

    Private Sub MainPictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MainPictureBox.MouseMove
        Dim center As Point = Me.PointToScreen(New Point(CInt(MainPictureBox.Location.X + MainPictureBox.Width / 2), CInt(MainPictureBox.Location.Y + MainPictureBox.Height / 2)))
        ToolTip1.SetToolTip(Me.MainPictureBox, CStr(Math.Atan2(Windows.Forms.Cursor.Position.Y - center.Y, Windows.Forms.Cursor.Position.X - center.X) * (180 / Math.PI)))
    End Sub
End Class
